home *** CD-ROM | disk | FTP | other *** search
/ Learning Games / Learning Games (1995)(Maple Media).iso / kslogo13 / demos.log < prev    next >
Text File  |  1994-04-27  |  1KB  |  23 lines

  1. Circle :radius :amount
  2. :radius=:radius*6.283185 :radius=:radius/18 repeat:amount [ fd:radius rt20 ]
  3. Poly :sides :size
  4. repeat:sides [ rt360/:sides fd:size ]
  5. demo
  6. repeat18 [ pu sp 0,0 fd50 rt20 pd :c=10 repeat20 [ fd:c :c=:c+5 rt90 ] ]
  7. colorwheel
  8. width10 repeat120 [ color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100 rt3 ] 
  9. turn
  10. colorwheel repeat360 [ width5 color:c :c=:c+.1 if:c>14 [ :c=0 ] sp0,0 fd100  width8 color15 bd100 rt8 ] 
  11. newdemo
  12. scale15 sp-100,0 clr repeat9 [ repeat200 [ fd100 rt120 fd20 rt146 fd20 ] rt120 ]
  13. clock
  14. aspect.5 repeat180 [ sp0,0 sh:m clr fd200 sp0,0 sh:h fd150 :m=:m+24 :h=:h+2 ] aspect1
  15. spin
  16. scale15  rt90 repeat10 [ pu sp50,50 rt180 pd :c=0 repeat45 [ clr fd100 rt:c fd100 rt180-:c :c=:c+4 ] ]
  17. logologo
  18. lt90 aspect.6 width2 repeat8 [ pu sp0,0 fd140 rt360/14 lt90 color:c pd l o g o rt90 :c=:c+1.7 ] aspect1
  19. bush
  20.  :col=8 repeat5 [ :c=-600 repeat7 [ color:col sh270 repeat19 [ pu sp:c,0 pd fd200 rt10 ] :c=:c+200 ] :col=:col+1 ]  
  21. logotwo
  22. scale2 logologo :c=1 scale7 logologo
  23.